home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / teglp.zip / SAMPROGS.ZIP / SAMC0306.PAS < prev    next >
Pascal/Delphi Source File  |  1990-06-27  |  957b  |  60 lines
  1. {$F+}  { -- far code model is required for any functions that }
  2.        { -- are to be used as Event Handlers }
  3.  
  4. Uses
  5.     dos,
  6.     graph,
  7.  
  8.     virtmem,
  9.     fastgrph,
  10.     TEGLIntr,
  11.     TEGLICON,
  12.     TEGLGRPH,
  13.     TEGLUnit,
  14.     TEGLMenu,
  15.     SenseMs,
  16.     DebugUnt,
  17.     TEGLEasy;
  18.  
  19. { -- insert variables here }
  20.  
  21. VAR fs : ImageStkPtr;
  22.     i  : word;
  23.  
  24. { -- insert procedures and functions here }
  25.  
  26.  
  27.  
  28. BEGIN
  29.  
  30.   EasyTEGL;
  31.  
  32.   { -- insert the example code here }
  33.   { -- press Ctrl-Break to exit program }
  34.  
  35.   PushImage(1,1,50,50);
  36.   ShadowBox(1,1,50,50);
  37.   fs := StackPtr;
  38.  
  39.   i := 20000;
  40.   REPEAT
  41.      dec(i);
  42.      IF i=10000 THEN
  43.         HideImage(fs);
  44.      IF i=0 then
  45.         BEGIN
  46.           ShowImage(fs,fs^.x,fs^.y);
  47.           i := 20000;
  48.         END;
  49.   UNTIL Mouse_Buttons<>0;
  50.  
  51.   IF i<=10000 THEN
  52.     ShowImage(fs,fs^.x,fs^.y);
  53.  
  54.  
  55.  
  56.   { -- control is then passed to the supervisor }
  57.  
  58.   TEGLSupervisor;
  59. END.
  60.